home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Fuentes
/
FNTVIEW.ZIP
/
FONTVIEW.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1997-09-14
|
8KB
|
239 lines
FontViewer
Font Viewer
Form1+
Label1
&Font
Label2
&Size
Label3
&Color
FontList
SizeList
ColorList
Frame1
&Attributes
CkBold
ckStrikeThrough
Strikethrough
ckItalic
Italic
ckUnderline
Underline
Frame2
&Display Text
SingleCharSelect
SingleCharValue
DisplayText
Standard
DisplayText
Custom
SingleChar
cmdQuit
Text1
Form_Click
@ Form_Load
Screen
FontCount
FontList
FontsJ
Combo1
Form1
Label1B
Frame1
Check1
Check2)
Check3
Check4
Check5z
Label2
Combo2
Label3s
SizeList:
ColorListI
Picture1
Textr
ListIndex
FontList_Change
Font]
SizeList_Changeg
FontSizeD
Command1
Command2
Command1_Click
Command2_ClickX
FontView
FontViewer
bView
cView
cmdCancel
cmdViewJ
cmdView_Click:
Check1_Click
Check2_Click
cmdCancel_Click
Unload
FontName
CurrentX
CurrentY
SizeList_Click
FontList_Click-
AutoRedraw
Picture
OptCheck1
ckBold7
ckItalic
ckStrikeThrough=
ckUnderline3
ForeColor
ColorList_ClickI
ckBold_Click
FontBoldi
ckItalic_ClickW
FontItalic
ckStrikeThrough_Clickl
FontStrikethrough
ckUnderline_ClickI
FontUnderline
FontStrikethru?
Height
Test1~
Text1
Text2
ScaleHeight
Test2
ColorList_Change)
Frame1_DragDrop"
Label1_DragDrop
SizeList_DragDrop
Text1_DragDrop
TextString1&
TextString2
TextString
Frame2
Option1S
DisplayTexte
DisplayText_Click
Index
Enabled
CustomText.
CustText
DisplayFlag6
TRUEL
FALSE
ViewText
Value
SelStart
Sellength
Label1_Click
Text1_Change
cmdOK
Text1_GotFocus{
Form_UnloadP
Cancel
CHECKED
cmdView_GotFocus
ShowText
Text1_LostFocus
Form_LostFocus
GetDisplayText
ShowDisplayText
DisplayTextThenl
Text2Display
GetDisplayText16
Text2isplay
THenText1
cmdCancel_GotFocus
cmdQuit
cmdQuit_Click?
Form_GotFocus
Text1_KeyPress
KeyAscii
Text1_KeyUp
KeyCode
Shift
SizeList_LostFocusg
CkBold_LostFocus7
intro
Label7E
Timer1
Label4
Label5q
Label6
ckItalic_KeyPress
Text1_KeyDown
DefaultFontNumber
DefaultFontIndex
ListCount
width
OrigSize
SingleChar_Changed
SingleCharSelect_Change
SelectChar
SingleChar
Caption
SingleCharSelectw
SingleCharValue
SingleCharValue_Change
SingleCharValue_LostFocus8
ChangeFlag
SingleChar_Click
FALSOE
OldValue)
OldValueText
Label3_Click
ValChangeFlag
CharChangeFlat
OldCharText
CharChangeFlag
Form_Load
Initialize form position
Initialize font listi
Set default font-
Initialize font size listL
Initialize colors
0 - Black"
1 - Blue
2 - Green"
3 - Cyan
4 - Red"
5 - Magenta"
6 - Brown"
7 - White"
8 - Gray
9 - Light Blue
10 - Light Green
11 - Light Cyan"
12 - Light Red
13 - Light Magenta
14 - Yellow"
15 - Bright White"
Initialize font attributes OFFe
Initialize Option buttonst
ckBold_Click
ckItalic_Click
Toggle Italic
ckStrikeThrough_Click
Toggle Strikethru
ckUnderline_Click
Toggle Underlinee
ColorList_Click
SizeList_Click
FontList_Click
DisplayText_Click
Form_Unload
Text1_LostFocus
GetDisplayText
Make the standard text to display
Pad with space for Italic
ShowDisplayText
Get the font name
Get the font size
Get the foreground colord
cmdQuit_Click
Unload main forma
Text1_GotFocus
Text1_KeyPress
SingleCharSelect_Change
SingleCharValue_Change
SingleChar_Change